//==================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// ---------------------------------
// - MBVMȸ} - 
//===================================
// gJA
//===================================

alberta_in,133,55,3	script	p	84,{
	if(DYE_EVE == 2) {
		mes "[ӤH p]";
		mes "...NOA.";
		mes "AhݹLN⪺ƾǮa?";
		next;
		if(select("߰ݲ򴵩ZƸ:")==1) {
			mes "[ӤH p]";
			mes "ڡAťLNƾǮaƸAiS|hOa?";
			mes "... 󤣥h?Iha!ws@D`_S~ ...";
		}
		else {
			mes "[ӤH p]";
			mes "ܦѹ껡aAMoOjj...";
		}
		close;
	}
	mes "[ӤH p]";
	mes "Ʊ?";
	next;
	setarray .@talk$,"","ԭzG","߰ݦdǪi}Ĥ","߰ݦүSߦĤ","";
	if(countitem(971) && countitem(972)) {
		set .@word$,"ӷG";
		cleararray .@talk$[2],"",2;
	}
	else if(countitem(972)) {
		set .@word$,"dǪi}";
		set .@talk$[1],"";
		set .@talk$[3],"";
	}
	else if(countitem(971)) {
		set .@word$,"үSߦ";
		cleararray .@talk$[1],"",2;
	}
	else {
		cleararray .@talk$[1],"",3;
	}
	switch (select(.@talk$[0],.@talk$[1],.@talk$[2],.@talk$[3],.@talk$[4])) {
	case 1:
		mes "[ӤH p]";
		mes "FM]kDAbNݹL";
		mes "ɦť@Ƥl ǮaǻD";
		mes "ƾǮaܦ";
		mes "ҥHXݥLݹL@ǨƦ";
		mes "SoL ^.";
		mes "LD`Jۤvs";
		next;
		mes "[ӤH p]";
		mes "uťƾǮaۨۻyӤw";
		mes "'dǪi}Ĥ... үSߦĤ...'";
		mes "ɭԧڤDoOPPзsG";
		close;
	default:
		mes "[ӤH p]";
		mes "z!oNO" +.@word$+ "!";
		mes "sڤ]S˦۬ݹLAzuOF`";
		mes "uѡAoGSMAѡAi਺ƤlƾǮa~ D...";
		next;
		mes "[ӤH p]";
		mes "zQhݥLѨMoӺðݧa?";
		mes "n[HeƤFAҥHTwL٦b";
		mes "iDzLbNALWrs ^0000ff򴵩Z^000000.";
		next;
		mes "[ӤH p]";
		mes "ԲӪƱOhNݰݬݧa.";
		mes "znB.";
		set DYE_EVE,1;
		close;
	case 5:
		mes "[ӤH p]";
		mes "... uOL᪺HC.";
		close;
	}
}

geffen,184,114,6	script	ھ|B	82,{
	if(DYE_EVE == 2) {
		mes "[N~ ھ|B]";
		mes "ѤѷݤSڭ̦b@_. ڦbzӳo";
		mes "...zSzn䪺H?";
		next;
		if(select("ԭz򴵩ZƸ:")==1) {
			mes "[N~ ھ|B]";
			mes "z٨SLF.";
			mes "LbKQ 2. Mz{ѤOܤ[Oӽt. ڵz@ӷN, nӾaL |zn...";
		}
		else {
			mes "[N~ ھ|B]";
			mes "ݱzyݤXӥ󰫧. iOz|XӤ߸̸.";
			mes "ڷz OnB... oOڤ@ӤHı? ";
		}
		close;
	}
	mes "[N~ ھ|B]";
	mes "Maj]kOq]ɶ. ڳoܪ@ɶ٬OLh.";
	mes "sگ?";
	next;
	if(DYE_EVE > 0)
		set .@talk$,"ԭz򴵩ZƸ";
	switch (select("",.@talk$,"")) {
	case 1:
		mes "[N~ ھ|B]";
		mes "sMR]kڤOqH. Loӥ@ɦܦhǤH ...";
		mes "z|OqJ@ӨƱ?  @... nƤl @...";
		close;
	case 2:
		set DYE_EVE,2;
		mes "[N~ ھ|B]";
		mes "zDӺƤlz]⥿`H. zܷQDLL...";
		mes "ڤiDz, LO˪H. ڰ 藍_... LznAѧ. ڥuiDzLb.";
		next;
		mes "[N~ ھ|B]";
		mes "LbKQ2. Mz{ѤOܤ[Oӽt. ڵz@ӷN, nӾaL |zn...";
		close;
	case 3:
		mes "[N~ ھ|B]";
		mes "ݱzyݤXӥ󰫧. iOz|XӤ߸̸.";
		mes "iڤ]SkF... H]Oj۵M@... NOH N... Ӥj۵My.";
		close;
	}
}

geffen_in,141,140,3	script	򴵩Z	121,{
	switch(DYE_EVE) {
	case 0:
	case 1:
		mes "[ƾǪ̲򴵩Z]";
		mes "... ...";
		mes "HAڬݨH.....";
		close;
	case 2:
		set DYE_EVE,3;
		mes "[ƾǪ̲򴵩Z]";
		mes " ... NOo.";
		mes " ...  ...";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "...ګܤ[SLH";
		mes "...oOaߺD...";
		mes "na ... ƩO?";
		break;
	case 3:
		mes "[ƾǪ̲򴵩Z]";
		mes "...жiӧa.";
		mes " ... ...";
		break;
	}
	next;
	switch (select("ťse:s@s~:")) {
	case 1:
		mes "[ƾǪ̲򴵩Z]";
		mes "...znbťsǻD...";
		mes ".. ڨSfz... ";
		mes "f......";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "...ڪswgiJq...";
		mes "HڪѤ~YF賣X...";
		mes "...";
		mes "uOɶD...";
		mes "NOɶ......";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "... zQDs";
		mes "... ²... ";
		mes "OsΤƤFF";
		mes "";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "Oܦ? ";
		mes "YMKܲGVb@_k!!!";
		mes "ҦF賣ܲG~~~~ Ʊ!! ";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "......K...K...";
		mes "ޫ...";
		mes "ثe෻ƩҦF.";
		mes "LXӷso{.";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "γoؿkXhFA";
		mes "zQ٭nh... ";
		mes "uOzQn!!";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "......";
		mes "NU|cϤHĩMּ֪E...";
		mes "...ڰڰڰ...";
		mes "zQno...";
		close;
	case 2:
		mes "[ƾǪ̲򴵩Z]";
		mes "HHHH...GMz].";
		mes "O...O...@ɤWH|...";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "o򿳾ĩM Ʊ ܤ֨...";
		mes "n... zQ? ...";
		mes "? HHHH";
		next;
		if(select("M:VX")==1) {
			set .@need,971;
			set .@price,3000;
			set .@gain,973;
		}
		else {
			set .@need,972;
			set .@price,4000;
			set .@gain,974;
		}
		mes "[ƾǪ̲򴵩Z]";
		mes "...AQn" +getitemname(.@gain)+ "...";
		mes "...nڧiDAݭnF.";
		mes "...ݬ......... ڰ...ګ...";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "...ڷQ_ӤF...";
		mes "n...s...." +getitemname(.@need);
		mes "..٦Ų~l...";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "-- Auno3Ӫ~NiHX.";
		mes "٦ѥ[oʧAnڦҪ...";
		mes "HHHH...nPӤjO";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "...ڨSn.....";
		mes "ťn..un" +.@price+ " zeny";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "?A|ıoܶQa?";
		mes "...ڷPıo...AMڤ@";
		mes "߸̦Mгyo!";
		mes "HHHHHHHH";
		next;
		mes "[ƾǪ̲򴵩Z]";
		mes "n...}la~";
		next;
		if(select("}l:")==2) {
			mes "[ƾǪ̲򴵩Z]";
			mes "... ...";
			close;
		}
		if(countitem(970)<1 || countitem(.@need)<1 || countitem(713)<1 || Zeny<.@price) {
			mes "[ƾǪ̲򴵩Z]";
			mes "n٤֪F!!";
			close;
		}
		mes "[ƾǪ̲򴵩Z]";
		mes "IIII... HHHH... n... No...n...~...٭n... ";
		mes "...ڰ... ګ... ... ګ... ... ! ...!!! ...!!!!!!";
		next;
		delitem 970,1;
		delitem .@need,1;
		delitem 713,1;
		set Zeny,Zeny-.@price;
		getitem .@gain,1;
		mes "[ƾǪ̲򴵩Z]";
		mes "...ګ...";
		close;
	case 3:
		mes "[ƾǪ̲򴵩Z]";
		mes "........";
		close;
	}
}